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NAMEI TURNKTL.SR 

DESCRIPTION: TURN KEY BINARY LOADER 
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ALL RIGHTS RESERVED, 
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as 
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an 
aw 
if 
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16 00003 
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20 00007 

21 00010 

22 00011 

23 00012 
24 

25 00013 

26 00014 

27 00015 
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29 00017 
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.MAIN 



I PREAMBLE FOR NEW HOOT PROGRAM 

I 



000000 

061277 

000027 

000014 

000001 

177744 

030431 
151400 
021*01 
104000 
045001 
035001 
041001 
151513 
136404 

000402 
000767 
004027 
044415 
133000 
151400 
004027 
045000 
010410 
000774 
020014 
041371 
062677 
061277 
063B77 
001000 
000376 
000746 



BEGI 
LOOPI 



• LOC 

MnRSTpOOAC 

GtT«27 

0VCDM4 

000001 
BEG-END-2 



(TAPE SYNCHRONIZER 

(NEGATIVE WORD COUNT FOR PREAMBLE 



LDA 2,C4K-.„l (FIST MEMORY SIZING LOCATION 

INC 2.2 

L0» 0,1.2 

COM 0,1 

STA 1,1,2 

LDA 3,1,2 

STA 0,1,2 

INCL* 2, 2, SIlC 

SUB 1.3.SZR 



(SAVE 

(COMPLEMENT 

("RITE 

IREAO 

(RESTORE 

(SKIP IF OVER 32K 



C4KI 
END! 



JMP .♦2-..1 

JMP LOOP-,,). 

JSR GET 

STA 1.C4K.,, 1 

ADD 1,2 

INC 2,2 

JSR GET 

STA 1,0,2 

ISZ C4K-..1 

JMP .•4-.,l 

LDA 0,DVCO 

STA 0,-7,2 

IORST 

MNRST 

HALT 

JMP 0,2 

37S 

JMP BEG-,,1 



(SKIP IF NOT END OF THE AVAILABLE 
(MEMORY 

(CONTINUE SIZING 

(SET 

(SAVE COUNT OF BINLOADER 

(FORM FIRST ADDRESS 

(INCREMENT ADDRESS 

(SET 

(SET INTO MEMORY 

(BUMP COUNT 

(GO BACK 

(LOCATION OF PROG LOAD DEV CODE 

(SAVE FOR BINARY LOADER 



(GETS CONTROL HERE 



100 

01 

02 
03 

04 
05 
06 
07 
H8 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
18 
20 
21 
2i 
23 
24 
25 
26 
27 
28 
26 
30 
31 
32 
33 
34 
36 
36 
37 
38 
38 
4* 
41 
42 
43 
44 
45 



I5T»RT 

(BINARY BLOCK LOADER 

(SUBROUTINE TO ASSEMBLE A WORD INTO AC2, THIS HORU IS 
(ADDED INTO THE CHECKSUM HELO IN AC0 



M0J5 177623 



8UILD-BEND-1 



IMINUS HORD COUNT FOR BIN LOADER 



U0036 V54521 BUILDI STA 3, TEMPI-. ,1 (SAVE THE RETURN 



0003/ B04407 
0004u 171300 

00041 0(14405 

00042 173300 
0(1043 143C00 

00044 002913 

00045 000004 DIFH 



JSR GTCHR-,,1 (GET CHARACTER INTO ACS 



MOVS 3,2 

JSR GTCHR-,,1 

ADD5 3,2 

ADD 2,0 

JMP #TEHP1-.,1 

4 



(AND SAVE IN THE LH OF AC2 

(GET THE NEXT CHARACTER 

(AND BUILD IN AC2 

(ADO INTO CHECKCUH 

(ANU RETURN 



(SUBROUTNE TO GET A CHARACTER INTO ACS 
(IF S«ITCH0»0, USE TELETYPE, ELSE USE PTR 
00048 094512 GTCHRl STA 3,TEMP2-.,1 (SAVE THE RETURN 
00047 000000 10 1 1 « (SKPDN DEV 

000777 JMP .-I-., 1 



00050 

00051 000000 1021 

00052 BB2906 



JhP PTEHP2- 



,1 



00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 



(START OF THE LOADER 
062677 STARTl IURST 



061277 

020526 
024506 
123400 
024509 
107000 
044765 
024503 
107000 

044764 

024501 
107000 
044401 
000000 1031 



MNRST 

LUA 0.AODRS-6-. 

LDA 1,C77-,,1 

AND 1,0 

LOA 1 . .101-. « 1 

ADO 0,1 

STA 1,101-. ,1 

LDA 1 . .102-., I 

ADD 0,1 

STA 1,102-. ,1 

LDA 1 , .103-., 1 

0,1 

1,103-. ,1 



ADD 

STA 



(DIAS 3, DEV 
(RETURN 



,1 (DEVICE COOE 
(MASK FOR DEVICE CODE 
(JUST DEVICE CODE 
IADDRESSS OF SKPDN 
(bUILD INSTRUCTION 
(PUT THERE 



(START READER 



10004 .MAIN 
31 








02 

03 




(READ 


IN A BLOCK 




04 00072 


004754 


BLOCKS 


JSR GTCHR-,,1 


(GET A CHARACTER 


05 K0073 


171305 




MOVS 3,2,SNR 


(ANO TEST IT TOR ZERO 


06 00074 


000776 




JnP BLOCK-. ,1 


IVES, STILL IN LEAOtR 


07 00075 


004751 




JSR GTCHR-,,1 


IOK, BUILD A HORO 


08 00076 


173300 




ADDS 3,2 


(IN AC2 


08 00077 


141000 




MOV 2,0 


(SET INTO THE CHECKSUM 


10 00100 


145000 




MOV 2,1 


(SET THE COUNTER 


11 00101 


004735 




JSR BUILD-. ,1 


(GO GET THE ADDRESS 


12 00102 


050507 




STA 2,A0DRS-,,1 


(AND STORE IT 


13 00103 


004733 




JSR BUILD-, ,1 


(READ THE CHECKSUM HORD 


14 00104 


125113 




MOVL* 1,1, SNC 


(TEST THE COUNT 


15 00105 


000431 




JHP TEST-,,1 


(IT IS »l, IE A START OR IGNORE 


16 00106 
17 

IB 


044454 




STA 1, COUNT-, ,1 


(BLOCK 




(READ 


IN THE OATA BLOCK 




IS BP107 


030451 




LDA 2,TEMP8-,,1 


(SEE IP STORAGE 


20 00110 


034735 




LOA »,DIFF-,,1 




21 00111 


172400 




SUB 3,2 




22 00112 


034477 




LDA 3,A0DRS-.,1 


(ADDRESS IS TOO BIG 


23 00113 


136400 




SUB 1,3 




24 00114 


172023 




AOCZ 3, 2, SNC 




25 00115 


000419 




JHP CHKER-,,1 


(YES, HALT THE LOADER 


26 00116 


030445 




LOA 2.C20-..1 


27 00117 


147033 




AUOZ» 2,1, SNC 




28 00120 


010442 




ISZ COUNT-. ,1 




29 00121 


147022 




AODZ 2,1, SZC 


(REPEAT BIDCKT 


30 00122 


125113 


STOREl 


MOVLP 1,1, SNC 




31 00123 


004713 




JSR BUILD-,, 1 




32 00124 


052465 




STA 2,»ADDR8.., 


! 


33 00125 


010464 




ISZ ADDRS-,,1 




34 00126 


010434 




ISZ COUNT-,, 1 




35 00127 


000773 




JHP STORE-,, 1 




36 00130 


105005 




MOV 0,1, 8NR 


(NOD, TEST THE CHECKSUM 


37 00131 


000741 




JMP BLOCK-, ,1 


(GO READ IN A BLOCK 


38 00132 


062677 


CHKERI 


IORST 




39 00133 


061277 




MNRST 




40 00134 


063077 




HALT 


(CHECKSUM ERROR, ACS'VALUE 


41 00135 
42 


000735 




JHP BLOCK-, ,1 





10005 .Mil* 

01 (START BLOCK OR IGNORE BLOCK 

02 0013b 125224 TEST: M0V2P 1,1, SiR 



33 i?li7 000418 
04 00140 105004 
.15 0O141 000771 

06 M0142 030447 

07 00143 062677 
OB 0O144 b61277 
0» HP14S 151113 
IB 0014b HO100O 
U 00147 063077 
12 00150 000777 
13 
14 
15 

16 0P151 0.04675 ISNORi 

17 (10152 U20404 
16 00153 1164(14 

18 00154 000775 

20 4)11155 000715 

21 00156 000377 C377I 

22 00157 000O0H TEMM11 

23 00160 000000 tempzi 

24 del 6 1 000000 save: 

25 1)0162 O0000O COUNT: 
20 00163 000(920 C20: 

27 0O164 0P0O77 C77! 

28 00165 B63600 .101! 

29 00166 074500 .1021 

30 30167 384100 ,103! 
31 

32 000211 

33 00211 k>00000 AODRSI 

34 00212 000641 BENDI 
35 

36 

37 100213 047503 



JhP IGN0R«.,1 

MOV 0,1, SIR 

JMP CHKER-.,l 

LUA 2,ADDRS-,,1 

IORST 

MNRST 

MUVL» 2,2,SNC 

JMP 0,2 

MALT 

JMP .-1-..1 
(IGNORE ERROR MESSAGES BY READING UNTIL 
(A RUBOUT 



IAN IGNORE BLOCK 

(TEST THE CHECK SUM 

(ERROR 

(GE1 TME AU0RES5 

IDO A RESET 

(TEST BIT 

(0-START THE PROGRAM 

(0, HALT 



0006 .MAIN 
• •HHOP? TOTAL ERRORS, Ote 



PASS 1 KRRORS 



JSP 


GTCHR.,,1 


LDA 


0,C377-.,l 


Sup 


0,3, SIR 


jmp 


h,nor-.,i 


JMP 


BLOCK-, ,1 


377 
























20 




77 




SKPDN 


BIAS 3,0 


NIOS 



.LOC ,*21 



JMP START' 



(GET INTO AC3 



(OK, GO INTO BLOCK MODE 



I REPtAT BLOCKS HAVE NO > 20COCTAL) 



(SKIP BOOTSTRAP COLD NOVA] 



3b 
3k 

40 
41 
42 
43 
44 
45 
ib 
47 



i'54520 
044522 
044107 
020124 
041450 
020051 
043504 
026103 
030440 
033471 



/COPYRIGHT (C) OGC, 1976 



48 0022b *40466 ALL RIGHTS RESERVED,/ 



49 
5 k 
51 
52 
53 
54 
56 
56 
57 
56 
5* 
6BJ 



('46114 
051040 

043511 

052110 
ti2«123 
042522 
042523 
053122 
042105 
000056 



.END 



0B07 ,M»lN 












AUOKS 


0H0211 


3/31 


4/12 


4/22 


4/32 


4/33 


BEG 


0001*02 


2/13 


2/15 


2/42 






SEND 


0*0212 


3/09 


5/34 








BLOCK 


0DHU72 


4/04 


4/06 


4/37 


4/41 


5/20 


BUILD 


000036 


3/09 


3/11 


4/11 


4/13 


4/31 


C20 


0001s.) 


4/26 


5/26 








C377 


e*jii se 


3/17 


5/21 








C4K 


0D0D33 


2/19 


2/26 


2/33 


2/41 




C77 


B 1)6181 


3/32 


6/27 








CMKER 


cafi32 


4/2!) 


4/3B 


9/05 






COUNT 


D.S0162 


4/16 


4/28 


4/34 


5/25 




OIFF 


000045 


3/16 


4/20 








DVCO 


0K10014 


2/U 


2/35 








END 


BB?e)34 


2/13 


2/42 








GET 


000027 


2/09 


2/27 


2/31 






GTCHR 


000046 


3/12 


3/14 


3/22 


4/04 


4/07 


IGNOR 


000151 


5/03 


5/16 


5/19 






101 


1900047 


3/23 


3/36 








102 


auaosi 


3/25 


3/39 








103 


000071 


3/42 


3/43 








LOOP 


e>(90a>Ct3 


2/16 


2/26 








MNRST 


P61277 


2/08 


2/36 


3/30 


4/39 


9/08 


SAVE 


?fcBi8i 


9/24 










START 


000053 


3/29 


5/34 








STORE 


raui22 


4/30 


4/35 








TtMPl 


000157 


3/11 


3/17 


9/22 






TEMP2 


eaglet) 


3/22 


3/26 


4/19 


5/23 




TEST 


(1)0136 


4/15 


5/02 








.101 


000163 


3/34 


5/26 








.102 


000166 


3/37 


5/29 








.103 


000167 


3/40 


5/30 









9/06 5/33 



5/16 



